? 1620 GOTAFIT — GOTRAN and A PIT FORTftAN 



;£or Monitor I System 



01. 2. 015 



Dtl. JOI IN MANI 

x;omput4i$*£chno< 



id 



4 



k 4 



7 



4_k 



TV 

A K 



4-k 



NT 



4 



4 



7 



4-k 



tv 



T7 



4 



4 



TP 



\~7 



4 



7 



AK 



4 



k 4 



4 



N 4 



4 



4 



4 



k 4 



4- 



4 



4 



4 



K 4 



7 



7 



A 



7 



N 
4 



k 4 



7 ^ 



4 



4 



7 



k 4 



V 



4-k 



k 4 



k 4 



N 4 



U 4 



7 



7 ^ 



k 4 



7 



4A 



TV 



4 



h 4 



4 



7 



V 



K 4 



A±> 



N 7 



4 



fcv 4 



V N 



k 4 



fc> 4 



7 



7 



44^ 



N 7 



k 4 



4 



N 4 



V N 



7 



4-k 



4-k 



A 



k 4 



7 



/I K 



4-fcw 



VT 7 



4 



4 



K 4 



7 ^ 



4 



K 4 



7 ^ 



h. 4 



V N 



k 4 



17 
4-U 



7 



4-N 



7 



TV 



4 



4-k 



4 



tv 4 



7 ^ 



7 



k 4 



7 A 



k 4 



7 ^ 



4 



17 



4-k 



nT 7 



7 



4 



4 



K 4 



U 4 



K 4 



K A 



7 \ 



t7 



7 



4 



7 



4J^ 



v 



A 



\~7 



K 4 



4 



7 



JJMETCAf 
HAMfJf&ND, IN 



C5> 



OEPX 



123 



K 4 



17 



4 



^ 4 



7 ^ 



7 



4J^ 



N 4 



T7 



4 



7 



4-fc. 



7 \ 



N"7 



K 4 



7 



4A 



"TV 



4 



N 4 



7 ^ 



4 



V 



AJi 



^"7 



K A 



V N 



4 



N 4 



7 



7 



N 4 



TV 



V N 



V 



K 4 



7 ^ 



4 



7 



7 



4-N 



^T7 



44^ 



\'7 



A 



A 



4 



7 N 



N 4 



7 N 



7 



U A 



V N 



N 4. 



z_ 



"7 



t 7 

7 



"7 



"7 



7 



A"7 



7 



"7 
\"7 



Z. 



4. 



7 



T7 



4-^ 



T7 



tsw 4. 



V N 



4. 



7 



K 4. 



7 ^5- 



Z_ 

Z. 

^" 
4. 



. 

■ . ; 

"7 
7 



.5^ 
"7 



17 



7 



N"7 



DISCLAIMER 



Although each program has been tested by Its contributor, no 
warra nty, express or Implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



iff*) gpouy ?ro(?pam wybw m wi^m 

(fill out in typewriter or pencil, do not use Ink) 
Program No, DeJb_ 
Program Name: 



1. Does the abstract adequately describe what the program is and what Yes_ No. 

it does? 
Commen t 

2. Does the program wha * the abstract say 3 ? Yes_ No. 

Commen t 

3. Is the Description clear, understandable, and adequate? Yes No 

Commen t 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No. 

Commen t 

Are me Sense Switch options adequately described (if applicable)? Yes No 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Commen t 

5. Does the source program compile satisfactorily (if applicable)? Yes No. 

Comment ' 

6. Does me object program run satisfactorily? Yes No_ 

Commen t . 

7. Number of test cases ru n Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Commen t 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Ye s No 

Comment . , 

9. Were all necessary parts of the program received? Yes No. 

Comment . 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name . 



Mr. Richard L. Pratt , Company 
Data Corporation 

7500 Old Xenia Pike Address 
Dayton, Ohio 45432 



User Group Code 



THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVTTED 
TO PARTICIPATE IN THIS EVALUATION. 
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Modifications or revisions to this program, as they occur, will 
be announced in the appropriate Catalog of Programs for IBM Data 
Processing Systems. When such an announcement occurs, users should 
order a complete new program from the Program Information Department. 
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QOTRAN, Am FORTRAN, and assoelcUd program* 
In core image format with appropriate Monitor I 

Control tfarda 
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1620 USEES GROUP LIBRARY 
PROGRAM ABSTRACT 

1. TITLE Of subroutine, state in Title); gotapit— gotkaw and afit Fortran for 
wdwtok i system Subject Classification: 1.2 

2. Author; Organization; Joel C. Ewing, Dept. of Mathematics and Astronomy. 

university of Oklahoma 

Date: 1/15/63 Users Group Membership Code: 5171 

3. Direct Inquiries to Name: Joel C. Swing, 816 College Avenue, Norman, Oklahoma 73069 

Phone: je-4-0956 

4. Description/Purpose: (5. Method; 6. Restriction/Range; When Applicable): 

The deck supplied loads the GOTRAM Compiler/Interpreter and the AFIT 
FORTRAN Processor, loader, and subroutines onto the 1311 disk pack. 

together with those routines necessary for calling these pr ogrfgff t hrough 

the MOBITOR I CONTROL SYSTEM, loading Iff dope by fte, «fflITQR I PISK 

IffTXiTy program. The need for loading OQTRAN m d, mi FORTRAH from, tarda 

la eliminated with a consequent saving of tine. GOTRAM has been modified 

to return control to the MONITOR SYSTEM, permitting batch running of 

GOTRAM programs . 

5-6 N/A 

7. Specifications (Check or fill in appropriate spaces): 

a. Storage used by program: 20k ? Sectors, 1Q5165-1Q5199. 1Q54QQ-1Q5999. 



b. Equipment required by program: Car d * ; Magnetic Tape ; Number of 
Drive s Paper Tap e Disk Fil e x ; Number of Drives ; TNS, 
TNF, M F ; Auto divid e x ; Indirect addressin g ; Floating Point 

Hardware ; 1620 Model I _; Model II ; 1443 Printer ; Index 

Registers ; Binary Capabilitie s ; Other (specify) • 

Can program be used on lesser machine? . Yes . Specify which requirements 
can be easily removed Auto- Divide . 

c. Programmed in: Fortran without Forma t ; Fortran with Format ; 
Fortran II ; Other Fortran (specify) ; SPS (specify assembler used) 

: Other (specify) Machine Language and SPS II P (Monitor I Control Syste m) 

d. Type of Program: Mainline, complet e ; Subroutin e ; If subroutine, for 

use with SPS (specify type of SPS) ; Fortran (specify type of Fortran 

; Other (specify) 

8. Additional Remarks: The following programs were Incorporated in GOTAFIT after 

' smrflprtiti ■rtiftcittonji G °TRAfl ;^-pr-o^i , 

" AFIT Improved FORTRAN (1.1.010) 



V 



CONTRNTS 



Forward 

AckiMMLedgemmnta 

Machine Specifications 1 
Purpose 

ART FORTRAN 1 

QOTRAI 1 

Machine Language Load 2 
Method 

AFIT FORTRAN 2 

QOTRAI » 

Machine Language Load * 
Loading Q0TAFTT onto Dlak 

umnaral Information k 

Loading Pxooedoro * 

OOP Brrors Daring Loading 5 

Typemritar Output During loading 5 
Operating Instrnotlons 

ART FORTRAN 8 

QOTRAI 9 

Error Detection 10 

Modified Plot 10 

Progr a m Site 11 

Batch Rnnping— additional Rot— 11 

Machine Laogmag* Load 12 
Listings 

ART F0R1RAH Modificaticrae 13 

OOTRAi Modlfleations 17 

Haehmo Language Load 20 

QOTART Deck 21 

Appendix *— Pr"»ffr Siting of ARXTH CM by Standard QOTRAJI 39 

Appendix B— Modification for isonhardmare divide *0 



vi 



forward 



QOTAFIT is a modification for 1620 with disk of standard 1620 
OOTkAN and AFIT Improved FORTRAN. Familiarity of tho roador with 
those too programming language a la aeaumed. Am FORTRAN la described 
In program writeup 1.1.010 of tho 1620 Qonoral Pro gr a n Library. 
QOTIAM la doaerlbod in publication c26-559 i M . 

Inquiries should bo dlroetod to Jool C. Iwing, 816 Collogo At*. , 
Roman, Oklahoma. 73069 . 



Agyggsagns 

Tho hoart of QOTAFIT la tho AFIT Improrod FORTRAN (1.1.010) 
of 1/Lt. Richard L. Pratt and tho standard IBM OOTRAH (1620.PR.011). 

Tho author wishos to thank Dave Aahbanchar of tho University of 
Oklahoma Computor Lab for providing information on tho necessary 
atrueturo of a pr ogr a m writeup and for tho prodding which caused 
this papor to bo mritton. Tho author ia also grateful for holpful 
hints on operation of tho Monitor I Systom from Valtor Daugherity, 
currsntly a studont at Oklahoma Christian Collogo in Oklahoma City. 
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QOTAFIT-- G0TRAN and AFIT F0RTRAM 
for Monitor I Systom 



QOTAFIT is doslgnod for uao on a 201 162*iilth a 1311 Disk 
Storage unit and tho auto- divide feature. Medifleation for a maohlno 
not haying hardware dlTido ia simple (sea APPaWDXX BT. Jn tho 
preparation of tho original QOTAFIT program tho IA (IndLrooV Addressing) 
feature was occasionally used, but this could easily have boon a ve l ma d . 
The QOTAFIT program itself does not use the IA feature. 



POSEpJI 

A. AFIT FORTRAN 

Because of sororal features of the Am Improrod FORTRAN 
(efficient compilation and execution times and noncritieal input 
format) which were not available with the FORTRAN IID of tho Monitor 
I System, it yas considered highly desirable to have the AFIT FORTRAN 
Systom stored on the disk so as to elominate the time-consuming 
task of loading the Processor and Subroutine card decks. Only the 
input source for the Processor, Loader, and Subroutines has boon 
changed. The basic Processor and Subroutines are unaltered and are 
as described in the AFIT FORTRAN wrlteup (1.1.010) with the following 
exceptions t (1) The procedure for loading the Processor and Object 
programs has been slightly modified, and (2) it is no longer possible 
to add additional subroutines to the AFIT System (the systom aa 
supplied haa HP, LOO, SIN-COS , AT AN, SORT, and ABS Subroutines). 



B. OOTRAH 

OOTRAH haa been in use here for several years as a jflflfcAng 
device. Although in theory one loading of tho QOTRAN deck la sufficient 
for the running of any number of programs, in practice certain 
programming errors will destroy various parte of the Compiler- Inter- 
preter and necessitate reloading of the deck. For this reason a disk 
version of QOTRAN was created which couj^bo^^^M^bj^D^yy^h 
individual p^roj^am to insure that any incorrect results wore because 
of a programming error in the present program, rather than an error 
in some previous program. 

QOTRAN haa been modified to return control to the Monitor 
Supervisor if (1) an IND or STOP statement is executed, (2) an 
"End of Job" card ia detected while reading data from cards, (3) an 
error ia detected during compilation, or (<0 STOP, RSSKT, INSHtT, 
RKLKASE, and START keys are depressed. This featur e pe rmits tho 
batch running of QOTRAN programs and tho mixing of QOTRAN programs 
with programs using tho facilities of the Monitor I System. Tho 
PLOT Subroutine has been alterred ( 1 ) to eliminate a plotting error , 



2 



of the standard GOTRAM, (2) to proYide the option of plotting on 
either too typ e wri ter or on carda, and (3) to apeed up plotting on 
too typewriter by tabulating whenoTo r it is neeeeeary for tho 
ty pewr i ter carriage to ao-?o 17 or aero spaces. Tho option of not 
lirfiHng tho trlgoneaotrle funetlone ia no longor aTailablo. Tho 
i ■■laiit P«rta of tho CORAM Compiler- Interpreter aro unchanged 
and aro aa doacribod in C26- 5594-1 . 



A ono aoetor roatino baa boon atorod on tho disk under tho 
nana KLCAKO. This routine roaota indicator. 06, 07, 09. 14, 15. 16. 
17. 19. 36. 37. 38. «nd 39 and than simulates the LOAD key on tho 
card raador. asking it poeoible to hare a self-loading dock 
automatically loadod by tho Monitor I Syataa. 



^2 Preoeoeor dock was loadod, including tho fanetion liat at 
tho ond of tho dock. At this point a halt instruction at 16876 ia 
executed. It was doeidod to place tho disk vrito roatino at 19000 
aa this waa in tho adddla of tho ayabel table and would bo eloarod 
daring initialisation (Tarious constants and ina tractions of tho 
P ro eoao or aro atorod in tho rogion 00000 - 00079) . Aa waa also tho 
caoo with tha S^fereutinee and with GOTHAM, it was imjj&aelble to uae 
Monitor diroetly for loading from diak boeanaa tha meaeryioeatlona 
roquirod by Monitor's loading roatino wars naodod by tho program. 
Tborofora, a aoparato progrom which could bo loadod by Monitor was 
written to road tho Proeoaoor from diak. As this reeding roatino 
waa aaalgnad to rood a fall 20E into aoaory, it was naeoooary that 
it bo atorod in msamry along with tha writs diak rootino boforo 
writing tho Pioeeeaw en diak. Otherwise, tho roadlng rootino would 
destroy ltoelf while roadlng tho Preeeaeor frea diak. The write diak 
roatino was then executed, and after recalling Monitor, tho Diak 
Utility Prograai (OOP) was used to permanently aeeign the Preeeeoer 
to aoctora 105600 - 105799 . The same road diak routine waa then 
TyPr* aa an SPS HD program (DOKQ at 19064) and atorod in core 
imago on diak with the Dame AFIT FR, en abling the call ing of tho 
Prooaaaor from diak by aa **f jfJQ IfJTIB" ~ m ~* AFITPR was then 
permanently aasignod to aoetor \oytOO by DDP. 

More oxtomaivo aodl filiations more nocooaary for tho Loader and 
Subroutinoa. The Loodor and Sabroutinoa are essentially divided 
into fear porta 1 (1) the Leader, which roado tho object program 
from carda (and than rooda the Subroutine Relocater); (2) tho 
Subroutine Beloeator, whleh rooda in the neeeaaary Relocatable 
Subroutinoa; (3) tho Belocatable Subroutines; and (4) tho I/O and 
Arithmotlo Subroutinoa. 
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Carda 1 - 52 of tho Loader wore loaded into ■ornery and modified 
to rood tho Subroutine Relocater from aoctora 105800 through 105822. 
Tho eard sequence counts wore set for eard 5*. the first card of tho 
object program. The Loader (in aoaory locations 00100 - 03099) was 
then written onto the diak work cylinders and later pormanontly 
assigned to aoctora 105 170 through 105199. 

Tho Subroutine Relocater waa loaded uaing a loading routine of 
essentially tha aeaa design aa the ono included in the original 
Loader dock. Tho Relocater waa modified to road the Relocatable 
Subroutinoa from diak, one aoetor at a time, and to road the I/O 
and Arithmetic Subroutinoa from diak. Tho Subroutine Relocater waa 
then written on the work cylindora in two porta, memory locations 
01000 - 03299 in Part 1 add locations 07820 - 08019 in Part 2. 
Through tho uae of D0P Part 1 was permanently aaalcned to aoctora 
105800 - 105822, and Part 2 waa permanently assigned to sectors 105823 - 
105824 . 

To simplify tha atoring of tho Relocatable Subroutines on disk, 
tho alphabetic information on the heading carda for tho 90x1000 
subroutines woe converted Into the corresponding numeric cedes, and 
tho format of thoae carda and of card 4900 waa changed to tho following 1 

Card Mo. Contents of Card 

2100 bbbb456757bbbbll00bbb... 

2200 bbbb535b>7bbbb2200bbb... 

2300 bbbb?24955bbbbS300bbb... 

2400 bbbb4'l634l55bb24O0bbb... 

2500 bbbb?2585963bbl500bbb... 

2600 bbbb?l4262bbbbS600bbb... 

4900 bbbbbbbbbbobbb*900bbTbbb... 

The Relocatable Subroutines wore then atorod on the diak work cylinders, 
one eard per aoetor, in aoctora 100225 . 100315 and permanently 
oaaignad through OOP to aoctora 105825 - 105915 • 

Tho i/O and Arithmetic Subro u tinoa wore then loaded into tho 
aoaory uaing a loading routine alallar to that ueed for the Subroutine 
Relocater. The l/o and Arithmetic Subroutinee, contained in 
■emery locations 00410 - 07909. were then written on the work cylindora 
of the diak and permanently aaaigned to aoctora 105925 - 105999 by 
DUP. 

An SPS IID program which would road the AFIT Loader and Part 2 
of tho AFIT Subroutine Relocater and then branch to tho beginning 
of the Loader waa aes amb led and atorod in core image on t he d iak 
and waa given the name AFXTLD. Through the use of DDP, AFITLD was 
permanently aaaigned to aoctora 105166 - 105167. 

The complete loading sequence for an AFIT FORTRAN Object program 
ia aa follows 1 

(1) A Monitor Control Card, "ft HQ AFITLD" eaueee the program 
AFITLD to be read from diak into 04000 - 04149 and executed; 

(2) AFITLD rooda tho AFIT Loader into 00100 - 03099 and Part 2 
of tho Subroutine Relocater into 07820 - 08019 and brancbee 
to tho AFIT Loader; 

(3) AFIT Loader rooda object dock from carda and stores it in 
08000 - 199991 
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(4) APIT Leader md* Part 1 of tha Subroutine Raloeatar fron 
dlak lnta 01000 - 03299 and branches to Subroutine Raloeatar; 

(5) Raloeatar roads Relocatable Subroutines from dlak and atoroa 
aa required Into 08000 .- 19999; 

(6) Raloeator roado i/o and Arithmetic Subroutines froa dlak 
into 00410 . 09909 and branchaa to atartlng addroaa (02056). 



B. QOTRAM 

Tho standard QOTRAR dock was loadod Into nonary fron cards. 
After adding medificationa, nonary looatlona 00100 - 19999 vara 
written on tho work cylinders and pomanontly assigned to soetora 
1050)91 - 105599 by OOP. An SPS IID progrsn was assonblod to road 
OOTRH Tron "4Uk into loeationa 00100 - 19999 and than branch to 
tha initialisation routine, "CLSARJ", loeatod at 18000 (tha road 
disk roatina is transnlttod to 00000 - 00082 boforo it Is executed) . 
Thia pr o gra n was storod on tho disk in eoro inage with tha assigned 
nana Q0TR30 (QDTRAN, nodifiod plot Torsion 3, for Disk), and was 
pomanantly aaaignod to sectors 1-654 6S'S» WJI69 by DUP. 



c. MAcq^yy LAjQUAQS 

An SPS HD progran to roaat all indicators , road a card into 
00000 - 00079, and branch to location 00000 was aaaanblod. Tha 
progran was storod on' tho dlak in coro lnaga and pomanontly aaaignad 
to aactor 105165 with tha nana HLCARD. 



A. ^fP^T IMFORMATIDB 

Tho Monitor I Syston anst bo loadod on tho disk pack mounted on 
d l,sk drlTo 0. Soctors 105165 - 105199 (inclusive) and ssctors 
105400 - 105999 (inclusive) most not here boo n poma nontly aaaignad. 
If tha paranotora have been rodoflnod (by a "DSFTJI" card), thoso 
soctors must still bo available for progran atoraga, and tha work 
cylinders anst bagin with aactor 100000. Tho nanas AFITLD, AFITPR, 
Q0TS3D, HLCARD, and QOTAFT wast not bo slraady in usa in tha 
equivalence tabla (tha nana QOTAFT is needed only in tho loading 
pro com and will not bo loft in tho equivalence tabla). Spaca for 
at least six additional entries In the DIM table la required. 



deck In tho read hopper of tho card reader. 

(2) Proas the RESIT and LOAD keys. 

(3) The Monitor Supervisor is called fron dlak, the aactor - 
requirements for QOTAFIT are printed, and a halt is executed. 
Frees START to proceed. 

(4> iXTAFTT Is loadod onto disk. 
(5) ?J~ OF JOB" is printed. 
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c pop wwgs ™go vmim 

If any DUP error nessagea are printed daring tho loading process, 
one or no re of the following nsy hare oc cured s 

(1) A permanently assigned progran has been found within soctors 
105165 - 105199 or sectors 105400 - 105999. 

(2) A nana required by QOTAFIT was already In use in tho oquiTalence 
table. 

(3) Paranetera hare been redefined such that the required sectors 
are no longer arailable for progran storage .or such that 

tho work cylinders do not begin at sector 100000. 

If an error occurs, stop the loading process (STOP key), recall 
the Monitor Supervisor , and delete those porta of QOTAFIT which have 
already been loaded by using the DSLBT routine of DUP and tho DIM 
entry number which was typed during the loading proeeaa (Note that 
although one DIM number nsy have been used twice at different tines 
in the loading proeeaa, it only need* to be deleted once). Using 
the DDUMP routine of DUP, obtain a listing of the Availability List, 
Sequential Progran Table, DIM Tabla, and Equivalence Table and determine 
the cause of the Error. (See the Monitor I Syston Reference Manual 
C26-5739-2 for an explanation of the format of theae tables.) 
Permanently assigned programs within the required sectors must be moved 
or deleted and conflicting names in the equivalence table must be 
changed or deleted. If (3) is the eauae of the error, parameters 
must be redefined so that the required sectors are available and the 
work cylinders begin at aactor 100000. 



D. TTPgWRTTP ntTTPTTT nmtTwr. i/un™n 

Note It DIM entry numbers may vary from the Hating given depending 
on contents of DIM tabla prior to loading. 

Note 2t It was discovered that when a progran which did not contain 
an integral multiple of throe sectors was punched on cards, 
reloading fron cards onto dlak resulted in the assignment to 
the progran of one extra aactor containing the zeros used to 
fill out the laat card. To get around thia the following 
procedure was used: 

(1) DL0AD was uaed to read the program fron cards and place 

it on the dlak. As a result of DLOAD the progrsn was also 
left sitting in the work cylinders. 

(2) DSLBT was used to delete the program from the progran atoraga 
area leaving it only in the work cylinders. 

(3) DLOAD waa uaed to load the correct number of sectors from 
the work cylinders and pomanantly assign than in the progran 
storage area of the disk. 

This procedure was unnecessary for the AFIT Loader as it 
required exactly 30 sectors. 
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Storo HLCAED 
on Disk 



♦♦J 08 5 LOAD GOTRAN 3D AND AFIT FORTRAN ON DISK 

** IF SECTORS 105165-105199 AND 105400-105999 ARE NOT PERMANENTLY 

**PAUS 1 ASSIGNED, PRESS START TO PROCEED 
**DUP 5 

♦DLOADMLCARD 01 1 1 102222CI 

DK LOADED MLCARD 0170 1^51 32002lJl 1 1 lZ>2222* 
**DUP 5 
♦DELETMLCARD 

**DUP 5 

♦DLOADMLCARD 1 00000 1 000001 05 1 6 50240202 402 D I 

DK LOADED MLCARD 5 170 1351650010240282402? 
**DUP 5 

*DLOADAF|TLD 01 1 1 102222CI 

DK LOADED AFITLD Ol71 l05l475035l1 1 152222* 
**DUP 5 
*DELET AFITLD 

**DUP 5 

♦DLOADAFITLD 100000100001 105166040000 4000D I 

DK LOADED AFITLD 6*171 1 051663025400054000+ 
**DUP 5 

♦DL0ADG0TR3D 01 1 1 102222CI 

DK LOADED G0TR3D 0172 1 55 14700 33 1 1 1 152222* 
**DUP 5 
♦DELETG0TR3D 



Storo AFITLD 
on DUk 



> Storo 001X30 
on Dlok 



**DUP 5 . 

♦DLOADGOTR 3D 1 00000 1 0000 1 1 5 1 6802 40202 402 01 



DK LOADED G0TR3D 5l72 1551 685025240252402? 
** AFIT LOADER 
**DUP 5 

1051 70001 0001000C I 
5i73 1551 70530501 0051000? j 



*DLOAD 
DK LOADED 
**DUP 5 
*DLOADAFITPR 



.Storo APIT 
>Lo«dor on 
Disk 



01 1 1 102222CI 
DK LOADED AFITPR 5174 1 551 3250251 1 1 152222* 
**DUP 5 
*DELETAFITPR 

**DUP 5 

*DL0ADAFITPR 10O0O01O00O010540O1906419O64DI 
DK LOADED AFITPR 5l74 l5540050lT9064T9064? j 
** GOTRAN MOD 3, AFIT PROCESSOR, AFIT SUBROUTINES 
ttDUP 5 

*DLOADGOTAFT 01.1 1 102222CI 

DK LOADED GOTAFT 5175 l5700050O5l 1 1152222* 
**DUP 5 
*DELETGOTAFT 



w Storo AFITPR 
on Disk 



**DUP 5 

*DLOAD 

DK LOADED 
END OF JOB 



1 000001 005981 05401 01 1 1 1 02222D I 
5175 155401 59951 11 152222? 



Storo OOTRAJt, 
.AFIT Proeoooor, 
ART Smbromtlnoo 
on Disk 



(Approxlaato Loading tlao it 12 nlmtoa.) 
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ft fTP 4,p I* ft ptSTBPCTIOHS 

A. AFIT FORTRAN 

1. To call the AFIT Proeeesor froa disk 

(1) Call the Monitor Supervisor froa diak if it is not 
already in aeaory. 

(2) Intor the Monitor Control Cards 
tt JOB 5 

ft HQ AFITPR 

(too JOB card aay bo oaittod if Monitor Supervisor 
has Jwst boon called froa disk by tho operator). 

(3) AFITPS is road and executed. Tho AFIT Processor is 
„ road ffba disk and a halt instruction is executed. 

(U) Proeood as if tho AFIT Processor dock had Just boon 
loadod. Switch Settings and Error messages are as 
doscribod in the HIT fORTRAH writeup (1.1.010). 
(5) After all programs have boon coapilod or precompiled, 
to resuae operation under tho Monitor Systea it is 
necessary for the operator to recall the Monitor 

Supervisor froa disk. 

If during the execution of the AFITPR prograa the Any Data 
Chock indicator is found on after reading the Processor froa 
disk, the aessage "D-CK" is printed and the prograa halts. 
To retry loading of the Processor, press RESET and START. 

2. To lead an object prograa 

(1) Call the Monitor Supervisor froa disk if it is not 
already in aeaory. 

(2) enter tho Monitor Control Carda 
**J0B 5 

. &ZBQ AFITLD 

followed by the object prograa deck. Data to be read 
froa cards should immediately follow tho object deck. 
As described above for the Processor, under certain 
conditions the JOB card aay be oaittod. 

(3) AFITLB is read and oxoeutod. The Loader ia read froa 
diak, the object deck ia read froa cards, the Subroutines 
are road froa disk, and the prograa halts. 

(<0 Proceed as if the Loader, Object deck, and Subroutine 
deck had Just been read froa cards (press START to begin 
execution). Switch settings and Error aessages are as 
described in the AFIT FORTRAN writeup. 

(5) To resuae operation under the Monitor System it is 

necessary for the operator to recall the Monitor Supervis< 
froa disk. 

If during the execution of the AFITLD prograa the Any Data 
Check indicator is found ON after reading froa disk, the 
message "D-CK" is printed and the prograa halts. To retry 
reading the Loader froa disk, press RESET and START. 



To use the disk Version of QOTRAN 

'Xl)'JLsUJ&* Monitor Supervisor froa disk if it is not already 
stored in aeaory. 

(2) Enter the Monitor Control Carda 
WOB 5 

Wm 00TR3D 

followed by the QOTRAN prograa to be run. If the prograa 
requires data on iHtroTra^ 

stateaenirtor the HQ card if the prograa is to be entered 
on the typewriter) . An *ttnrf at Jph» ««rd should follow 
the last card of data (the END stateaent if no data on cards, 
or the HQ card if neither prograa nor data ia froa cards). 

(3) Q0TR3D is read froa diak and executed. The OOTRAN Compiler- 
Interpreter is read froa disk and the prograa halts. 

(k) set Prj?grM^riLt^ejLjCsr_ i gQppiiat,ico-- 

ON OFF 
SW 1 Source Prograa entered on Source prograa entered 
cards on console typewriter 

IW 2 Source stateaents punched Source atateaenta not 

on carda as they are read punched 
SW 3 Source stateaents are typed -\Seurce statements not 
on console typewriter typed 

SW k Noraally OFF. If a typing error is detected before 
the R/S key is pressed, turn SW <+ ON, press the R/S 
key, and turn SW k OFF. The Stateaent nay now be 
retyped. 

(5) Press START. QOTRAN stateaents are read and coapilod. When 
the END stateaent ia detected, the prograa will return the 
carriage twice and halt. 

(6) jSej^JPja^am. Switch** for Execution-- 

0N OFF 
SW 1 Data to be entered on cards Data to be entered on 

console typewriter 
SW 2 Trace results of arithmetic Do not trace ( normal 

operations on typewriter setting) 
SW 3 When PLOT stateaent found. When PLOT stateaent found, 
plot on cards plot on typewriter 

SW 4 Noraally OFF. If a typing error is detected before 
the R/S key is pressed, turn SW ON, press the R/S 
key, and turn SW U OFF. The last entered data number 
aay now be retyped. 
(?) If the prograa will produce output on typewriter, aargina 

and tabs should^ bo .,*at~ 

lon'ajrglnTij tabs at 28, 45, 62, 79, 96; right aargin 9? 
(the margins and tab settings aay vary froa these values , but 
if any plotting on the typewriter is to be done, the 17 space 
interval between tab stops must be observed) 
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(8) Preae STAB?. Bxecution of compiled program begins. 

(9) when eard data i» exhausted and the "Bad of Job" card Is 
rMd as data, or whan an BID or STOP Sta t —a n t ia executed, 
tha Monitor Supervisor Program la autematically raloadad. 

(10) If tha program doas not atop itaalf, it may ba stoppsd and 
tha Monitor Supervisor raloadad by preae ing tha STOP, RBSBT, 
DBKRT, RBLBASS, and START keys. 

wees -the execution of tha Q0TR3D prograsi tha Any Data 
Choek indicator ia foand on altar reading GOTRAI from disk, tha 
moooago "D-Cl" l a printed and tha pragraai halts. To rotry 
loading If UUTRA1, praoa BBSBT and START. 

If an arrsr ia dotaetod daring compilation, tha Hani tar Supervisor 
Prograsi is automatically raloadad. Tha Supervisor ignore all 
remaining cards until a Hanitor Control Card ia foand. 

As with standard QOTRAM, eartain prograaadng arrera nay 
result in a Chock Stop daring either compilation ar execution. 
If a Choek Stop oeeura, proaa RBSBT, MSBRT, RBLBASB, and START 
and the Monitor Supervisor will ba raloadad. 

Brror messagee daring execution aro tha same aa daaeribad for 
standard OOTRAR with tha axe option that ona additional arror 
meeeage haa boon addod, BRROR F8, which slgnifioe that an attempt 
.was aads to plot a number having an ebeolute value greater than ?0. 

'"Subroutine haa baon extensively modified to spaed 
up typoaritor plotting and provide tho option of plotting on 
oithar tho typoaritor or cards. Only tho abaolvta value of tho 
unite and tattr ittilta oT tho Tarlabla boing plottod aro examined. 

If platting is dona on eards (9m 3 01 daring execution) , tha 
absolute valae of tho plottod Tarlabla nay ba fraai to 70 
lnelaaiTa, for which tho character specified by the PLOT statement 
will be peached in a card within columns 10 throwgh 80. If tho 
abaelato value of tho malts and tans dlgita of the Tarlabla being 
plotted is graator than 70, the massage "BRROR F8" will be typed and 
"BROS f8" will be punched in columna 1 - 8 of a card. 

If platting ia done en the typewriter (Sv 3 OFP daring execution) , 
tab stops wast be aat every 17 apaeea. The typewriter will tab 
until the point to bo plotted ia lesa than 17 apaeea away and then 
space to the proper point. As with standard 00TRAI, a PRINT 
statement must be used to return tho typewriter carriage. If 
only one variable ia printed by the PRJRT statement, the Tarlabla 
to be plotted ahomld be aealed between jQjand 69 (using the margin 
and tab aattlnga given mndor (7) en the provioma page) . If two 
Tariablaa are printed, tho variable to bo plottod should be 

Maltlple plotting cannat be done en the typewriter unless 
paints to^ plottod on tho samo lino are leaa than 17 epeoee 
apart or mnloss a pregraai is written which is elaborate enough to 
take Into aecount the location of the typewriter carriage relative 
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to the next tab atop. Multiple plotting can bo achieved rather 
easily by (1) plotting the functions alternately on cards and 
using a specially wired 407 board to Hat several eards per line 
or (2) plotting each function separately on eards and using a 
reproducer punch to reproduce the information from the eeveral 
decks onto one deck. 

Program Slao 

Maximum number of variablee, oonstante, and statement nwmbera 
must bo less than 462. 

Tha following equation may bo used as a rough oatimato as 
to whether a long program will fit into arallablo memory spaces 

1M*s) ♦ 1 °(*T ♦ "c) * K * where 
Kg ■ the number or atat amenta, 
Ny * the number of symbols used, and 
>e * the number of different constants used. 
Tho program should fit if I is less than 1(6*2. 

A more accurate calculation of storage spaoe required by a 
program may be made by the fallowing t 

10(V + C ♦ S) 4 3(P ♦ 10) -*L + 600 + 16IF *■ 21D0 ♦ 7FX1 + 9PX2 ♦ l4F» 
where V ■number of floating-paint Tariablaa (oount a dlmeneiened 

Tarlabla aa rt+1 Tariablaa where n is the number associated 
with that variable In the DttBBIOH statement) , 
C ■number of different floating point aaiajtawtoy. 
S ■number of otat amenta having statement numbers, 
P ■number of PA0SB and STOP at a t amenta, 
10 ■ n umb e r of Input or output atat ament a, 
L ■total number of variable names listed In Input or output 

statements, 
00 ■ number of 00 TO etatemente, 
IF ■ number of U atat amenta, 
00 « number of 00 statamonta, 

FI1" number of flxedwpoint arithmetic atatemanta of form v*#o, 
FX2» number of fixed-point arithmetic atatemanta of tho 
form v^vjc , 

F ■ number of floating-point arithmetie atatemanta (involving 
either an arithmetie operation or a function) and PLOT 
atatemanta. 

Aa before, I must be leaa than 4642 for the program to fit. 

Batch Ruimlns^- Addi tio nal notes 

When aeveral aCTRATpregrsms in succession are to be run, 
a JOB card ia neceaeary only for tho first program in the batch. 
If it is desired to keep typewriter output from the varloua 
programs on separate sheets, a Monitor PADS Control Card may be 
inserted between the Bnd of Job card of one program and the 
ZXQ card of the following pr o gram , giTing tho operator a chance 
to change tho typewriter paper. 
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WHfflf , MWWMi MAP 

(1) It Is uraM that tho Monitor Supervisor Pro eras would 
already bo in memory whenever it woro doolrod to us* this 
routinot-otherwise it would be simpler to uso tho RXSIT and 
LOAD koys. 

(2) Piece tho following Monitor Control Cards in front of tho 
dock to bo leaded; 

**JOB 5 
&XBQ MLCiRD 

(3) MLCIRD is read from disk and executed. All indicators are 
reset, a card is read into 00000 — 00079. and the program 
branches to location 00000. 
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LISTINGS 

A. ATIT FORTRAN 

1. Disk write and Road routines added to Processor (entered 

manually on console typo writer so as to disturb only locations 
00000 - 00012 of the Processor) 



D I SKA 



START 



mes; 



DISK 



D0RG 19000 

RNTY 0,,, ENTER 1+900558 TO RESTORE 



SK 
WDN 
CON 
H 

DORG 
0DA 



D I SKA 

DISKA,,,HAVE DISK SW. ON STOP 
Q|SKA,,,T0 DETECT READ-BACK CK. 

*-9 

,1,0,200,0 



SK DISK 

RDN DISK 

BNA 16876 

WATY MESS,,, ANY DATA CK. 
H 

DAC 5,D-CK5£,*-0 

B7 START 

DDA ,1,5600,200,0 



S ON 



2. AFITPR Program 

LIST TYPEWRITER 
STORE CORE IMAGE 
NAME AFITPR 



19000 
PROCESSOR 

19000 36 00000 00100 
19012 3k 19050 00701 
19021+ 38 19050 00702 

19036 36 19050 00703 
1 90W 1+8 00000 00000 
19050 

19050 00006 1 50000 

19056 00003 loo 

19059 00005 00000 
19061+ 3U 19132 00701 
19076 36 19132 00702 
19088 U7 16876 01900 
19100 39 19115 0010.0 
19112 1+8 00000 00000 
19115 00010 
191 21+ 1+9 19061+ 00000 
19132 00006 155600 
19138 00003 500 
191 i+1 00005 50000 



DORG 19061+ 
START SK DISK 
RDN DISK 
BNA 16876 

WATY MESS,,, ANY DATA CK. IS ON 
H 

MESS DAC 5,D-CK5?,*-8 

B7 START 
DISK DDA ,1,5600,200,0 



DEND START 



19061+ 
19061+ 
19076 
19088 
19100 
19112 
19115 
19121+ 
19132 
19138 
1911+1 
19061+ 



31+ 19132 00701 
36 19132 00702 
1+7 16876 01900 
39 19115 00100 
1+8 00000 00000 
00010 

1+9 19061+ 00000 
00006 155600 
00003 200 
00005 50000 
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3. Modifications to Loader (machine language ontorod manually 
fro* typewriter to avoid destroying other parts of tho 
Loador). 



SEQNO DC 4, 54,606, CHANGE SEQ. CNT. 
LSQ DC 4,53.671, CARD 54 
^ROUTINE TO READ PART 1, SUBR. RELOCATER 
DORG 754 



B 



DISK 



4. 



NOP 
RDN 
NOP 

B7 
DDA 



DISK 

1000, ..BRANCH TO RELOCATER 
,1 ,5800,23,1000 



FOR 00606 00004 5054 
00671 00004 5053 

00754 

00754 41 00000 00000 
00766 36 00798 00702 
00778 41 00000 00000 
00790 49 01000 00000 
00798 00006 1S58OO 
00804 00003 523 
00807 00005 51000 



Prograa to write Loador on tho work cylinders. Program vas 
loadod froa a eard and executed with Disk Switch on STOP 
to detect any read-back check. 

00000 34 00038 00701 

00012 38 00038 00702 Write Loader on Sectors 100000-100029 
00024 36 00038 OO703 
OOO36 48 

00038 17JOOOOTI30T50100 



5. ATITLD Prograa 

LIST TYPEWRITER 
STORE CORE IMAGE 
NAME AFITLD 



START 



MESS 



DISK1 



DORG 4000 
SK DISK1 

RDN D I SKI,,, READ AF IT LOADER 
BNA A 

WATY MESS,,, ANY DATA CK. IS ON 
H 

5,D-CK£,*-8 

START 
DISK2 

DISK2, , .READ PART 2 OF RELOCATER 



DAC 
B7 
SK 
RDN 
BNA 
B7 
DDA 



1000,,, BRANCH TO LOADER 
B 

,1,5170,30,100 



04000 

04000 34 04112 00701 
04012 36 04112 00702 
04024 47 04068 01900 
04036 39 04051 00100 
04048 48 00000 00000 
04051 00010 
04060 49 04000 00000 
04068 34 04126 00701 

04080 36 04126 00702 
04092 47 01000 01900 
04104 49 04036 00000 
04112 00006 155170 
04118 00003 530 
04121 00005 50100 
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DISK2 DDA , 1 ,5^23,2,7020 



DEND START 



0412c 00008 105C23 
04132 00003 502 
04135 00005 57820 
04000 



6. 



Modifications to Subroutine Relocater (machine language 
entered Manually from typewriter to avoid destroying other 
parts of the Relocater) . DM signifies unmodified. 



*M0D|FI 

READ 

SEQ 

*M0D|F 
START 
IGSW 



CATION 
DORG 
TFM 
RDN 
NOP 
DS 
AM 



TO RNCD INSTRUCTION, CHANGING 
1624 

DISKB+13,TEST 

D I SKB, , ,READ NEXT SECTOR 



TO RDN 

01S24 
01S24 
01636 
01648 



16 
36 
41 



01201 
01 188 
00000 



5,*, LABEL USED IN AF IT LISTING 01659 00005 
DISKB+5,1,, INCREMENT FOR NEXT SECTOR 

01660 1 1 01 193 
01672 41 00000 
SUBROUTINE HEADING CARD READER 



NOP 
I CAT I ON 
DORG 
TFM 
TDM 
DS 
RDN 

AM DISKB+5,1 ,, INCREMENT FOR NEXT 



OF 
1 108 

DISKB+13,ATEST-1 

IGSW,0,, 

1 *-1 

diskb|,,read next 



UM 
UM 
SECTOR 



D I SKB 

*M0DIFI 
C 

DISKA 
F I MALI 



TF 
BD 
B7 
DDA 



SEQJEST+3 
FINAL, ATEST+19,, 



. ... „c CK FOR CARD 4900 
A 10-36,,, PATCH BACK INTO AFIT 
,1 ,5825,1 ,ATEST-1 



01 108 
01 108 
01 120 
01130 
01 132 
SECTOR 
01144 
01156 



16 
15 



01201 
01130 
00001 
36 01188 



53074 
00702 
00000 



50001 
00000 



53060 
00000 

00702 



CATION TO READ I/O, ARITHMETIC SUBR. 
DORG 7828 
TR O.C+12 
B7 2056 
DC 1,? 

DDA ,1,5925,75,410 



DORG 

RDN 

TD 

TD 

TD 

TD 

TD 

TD 

SF 

B7 



786R 

DISKA,,, READ 

2728,401 

2752,401 

2828,401 

2840,401 

2956,401 

29^8,401 

7251 

C 



11 01193 50001 
26 01659 03077 
01168 43 02452 03080 
01180 49 01204 00000 
01188 00006 155825 
01194 00003 501 
01197 00005 53060 
FROM DISK 
07828 

07828 31 00000 07840 
07840 49 02036 00000 

07847 00001 t 

07848 00006 15592 5 
07854 00003 575 
07357 00005 50410 



I/O, ARITH. SU3R. 



07868 
07868 
07880 
07892 
07904 
07913 
07928 
07940 
07952 
07964 



36 
25 
25 
25 
25 
25 
25 
32 
49 



07848 
02728 
02752 
02828 
02040 
02956 
02968 
07251 
07828 



00702 
00401 
00401 
00401 
00401 
00401 
00401 
00000 
00000 
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7. 



Routine used to load Subroutine Relocater (cards 2000 
2040) into aeaory. Routine was loaded froa cards. 



8. 



00000 36 00100 00500 
00012 31 00167 00102 
00024 47 00000 00900 
00036 48 00000 00000 

Routines used to store Part 1 and Part 2 of the Subroutine 
Reloeator on the Work cylinders. Routines were loaded froa 
cards. Disk Switch was on STOP to detect any Read- Back Check. 



00000 34 00038 00701 
00012 38 00038 00702 
00024 36 00038 00703 
00036 48 

00038 10020002301000 

00000 38 00026 00702 
00012 36 00026 00703 
00024 48 

00026 10022300207820 



Lead Part 1 

100222 



on Sectors 100200 - 



Load Part 

100224 



2 onto Sectors 100223 - 
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Routine used to read Relocatable Subroutines froa cards 
2100 . 4900 and store thea en the disk work cylinders. 
Cards 2100, 2200, 2300, 2400. 2500, 2600, and 4900 were 
replaced as described en page 3. The prograa was loaded 
froa cards after clearing the asaory to teres and loading the 
addition table. 
Card 1 

00000 36 00400 00500 

00012 36 00460 00500 

00024 49 00400 
Card 2 

00#00 34 00480 00701 

00412 36 00600 00500 

00424 38 00480 00702 

00436 36 00480 00703 

00448 46 00494 01900 
Card 3 

00460 11 00485 00001 

004?2 49 00412 

00480 1TJ0225001 00600 

00494 48 00000 00000 

00506 49 00400 



Write one sector on work cylinders 



Increaent Sector address 



Data Check. Press RESET and START after 
preparing the reader to reread the 
last card read. 
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10. Routine used to read i/o and Arithaetic Subroutines (cards 
5001 - 5134) into aeaory and store then on the disk work 
cylinders. Disk Switch was on STOP to detect any Read- Back 
Check. The prograa was loaded froa cards. 
Card 1 

00000 36 00080 00500 

00012 36 00100 00500 

00024 31 00167 00102 

00036 47 00012 00900 

00048 34 00086 00701 

00060 38 00086 00702 

00072 36 00086 
Card 2 

OOO80 0703 

00084 48 

00086 10032507500410 



B. Q0TRAM 

1. Modifications to PLOT Subroutine, 
instruction. 



UK signifies an unaodlfled 



D0RG 
FPLTA DC 
DS 

FPL0T TF 
BT 
SF 
CF 
B 
A 
A 

TF 

WACD 

CF 

B7 

DORG 
FPL0T2 BC3 
CM 
BN 

TBTY 

SM 
B7 
CM 
BNH 
SPTY 
DAC 
SM 
B7 
TF 

WAT Y 
B7 



4582 

10,5310000000,, UM 
10,, UM 

FAC, FPLTA,, UM 

FAD, FPL0T-1 , , UM 
FAC-1,,, UM 
FAC,,, MAKE NUMBER POSITIVE 
FPL0T2 
*+30,FAC,, 
*+l8,FAC, , 
CHI + 18,V/K+10,, 
CHI 
FAC-1 

14820 

PLT?., ,, SELECT PLOT OUTPUT DEVICE 



MOVE CHARACTER 
TO BE PLOTTED 
TO OUTPUT 



UM 



FAC, 17, 10, TYPEWRITER PLOT ROUTINE 
PLT1,,, ~ 



04582 

04591 00010 ^810000000 

04601 00010 

04602 26 00060 04591 
04614 27 09554 04601 
04626 32 00059 00000 
04638 33 00060 00000 
04650 49 14820 00000 

04662 21 04692 00060 
04674 21 04692 00060 
04686 26 12773 00859 
04-598 39 12755 00400 
04710 33 00059 00000 
04722 49 00488 00000 
14820 

14820 46 14976 00300 



DECREMENT BY 17 



PLT1 



PLTCH 



PLT3 



14832 14 00060 00017 
TAB IF MORE THAN 16 14844 47 14888 01300 
14856 34 00000 00108 
14868 12 00060 000T7 
14880 49 14832 00000 
14888 14 00060 OOOQO 
SPACE IF MORE THAN ZER0 14900 47 14944 01100 
14912 34 00000 00101 
2, 3,*-8 14915 00004 

FAC, 1,10, DECREMENT BY 1 14924 12 00060 OOOOl 

PLT 1+1 2 14936 49 14900 00000 

PLTCH, WK+ 10 14944 26 14915 00859 

PLTCH,, t PLOT CHARACTER IS TYPED 14955 39 14915 00100 
FPL0T+1 08 , , , BRANCH TO END OF SUBR.14953 49 04710 00000 



FAC, 17,10, 
FPL0T2+12 
FAC, 0,10 
PLT3,„ 



It 



PLT2 



TFM 
TFM 
TFM 
AM 
CM 
BNE 
CM 
BNH 
BTM 
DC 
TR 
TDM 

WACD CHI 



FPLOT+90,CHI+l8,,CARD PLOT ROUT I NE 1 4976 16 04692 T2773 
PLT2+30.CHI,, CLEAR OUTPUT AREA 1 4983 1 6 15006 T2755 



CHI,0,l6 
PLT2+30,2,10 
PLT2+30,CH|+160 
PLT2+24 
FAC, 70,10 
FPLOT+60 



2. 



15000 16 12755 OOOOO 
15012 11 15006 00002 
15024 14 15006 T2915 
15036 47 15000 01200 
15048 14 00060 00070 
15060 47 04662 01100 
15072 17 06078 S78OO 

15083 00001 % 

15084 31 12754 06060 
15096 15 12771 00000 
15108 39 12755 00400 

B7 FPL0T+ 108,,, BRANCH TO END OF SUBR.15120 49 04710 00000 

The following Modifications tmwdt the Call Monitor Routine 
to 00000, initialise OOTRAH to etore too coapiled pregraa at 
15128, and euppreea the option of not loading SIX- COS, and 
ATI functions. Tho laat aadifleation was required boeauao 
tho Modified PLOT Subroutine waa etAred following thoao 
functions. 



ERROR, 678OO, ,ABS VALUE ABOVE 70 
1 ? * 

CH \-\ .OUCH,, ERROR F8 TO OUTPUT 
CH 1+16,0,, ERASE RECORD MARK 



DORG 
CLEARJ TR 
SF 
TFM 
DC 
TDM 
BV 
TFM 
NOP 
TFM 
NOP 
NOP 
NOP 
NOP 
NOP 
H 
B 

SK 
RON 
B7 
DSC 
DDA 



DC 



XYZ 



18000 

0, XYZ,, UM 
CLEAR+23.,, UM 
ZZZ, 640,8, UM 

1. ?,*, UM 
400,4,, UM 
*+ 12,,, RESET OVERFLOW 
INT+11,15128 

L, 15128 



333,,, UM 
CLEAR,,, UM 
32,,, CALL MONITOR ROUTINE 
32 

2402 
1,5 

,1,19636,113,102 



1/ 



18000 

18000 31 00000 13180 
18012 32 07385 00000 
18024 16 07207 05640 

18035 00001 % 

18036 15 00400 00004 
18048 46 18060 01400 
18060 16 00499 T5128 
18072 41 00000 00000 
18084 16 05838 T5128 
18096 41 00000 00000 
18 108 41 00000 00000 
18120 41 00000 00000 
18132 41 00000 00000 
18144 41 00000 00000 
18156 48 00333 00000 
18168 49 07362 00000 
18 180 34 00032 00701 
18192 36 00032 00702 
18204 49 02402 00000 

18211 00001 5 

1821 2 00006 1T9636 
18218 00003 T13 
18221 00005 00102 
18226 00001 * 
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3. 



Modification to CLEAR routino. ProTanta tho daa traction of 
tho aodifiod PLOT Subroutine during clearing of tho ayabol 
table. 



DORG 7393 

CM *-l3, 15130 



07398 

07398 14 07380 T5130 



4. 



Modification* to BID Subroutine (also used aa laat part of 
STOP Subroutine) .DM signifies unmodified. 



END 



*PATCH 
M0D3D 



DORG 1794 

RCTY ,,, UM 
WATY MESS-22,,, UM 
RCTY ,,, UM 
RCTY .,, UM 
B7 0, , , RESTORE MONITOR 
FOR READ SUBR. TO DETECT END OF JOB 
BNR *+20,CHI 
B7 0,,, RESTORE MONITOR 



01794 

01794 34 00000 00102 
01806 39 09265 00100 
01818 34 00000 00102 
01830 34 00000 00102 
01842 49 00000 00000 
CARD 

01850 45 01870 12755 
01862 49 00000 00000 



BT INlfRM, INSTRM-1 ,, ORIGINALLY AT 1978 01870 27 01608 0160 



B7 RR+56,,, RETURN TO READ SUBR. 01882 49 01990 00000 
* BRANCH TO READ SUBR. PATCH. INSERTED IN READ SUBR. 

DORG 1978 01978 1 

B M0D3D 01978 49 01850 00000 

Modification to KRROR Subroutine causing a branch to Call 
Monitor routino if an error is detected during compilation. 



5. 



DORG 6126 

BD 0,C0MPSW 



06126 

06126 43 00000 06107 



6. 



Modification to Subroutine Interpreting routino to prevent 
randoa setting of tho Arithmetic Check Indicator. See 
APPBIDIZ A for a aore detailed explanation. DM signifies 
unmodified. 



FUNCT 



AM 
TF 
TF 
BD 
TF 
BT 
BD 
TF 
TF 
BC2 
B7 

INDEXA TD 

S 

B7 



DORG 4730 

INT+11,14,10, 
*+54,WK+4 
*+46,WK+7 
INDEXA,WK+8,, 
*+4l ,WK+1 1 ,, 
19999,19999 
INDEXB.WK+12 
19999, FAC, , 
IC+6 *-6,, 
IC+24,,, 

INT,,, o 

*+22,WK+8,, 
*-58, 19997,, 
*-104,,, 



UM 



UM 
UM 



UM 
UM 
UM 
UM 
UM 
UM 
UM 



04730 
04730 
04742 
04754 
04766 
04778 
04790 
04802 
04814 
04826 
04838 
04850 
04858 
04870 
04882 



11 00499 
26 04796 
26 04800 
43 04858 

26 04819 

27 19999 
43 04890 
26 19999 
26 00662 
46 00680 
49 00488 
25 04880 
22 04812 
49 04778 



000T4 
00853 
00856 
00857 
00860 
19999 
00861 
00060 
04820 
00200 
00000 
00857 
19997 
00000 
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INDEXB TD 
S 
B 



*+22,WK+12,, 
*-83, 19997,, 

*-100 



UM 
UM 



7. Q0TR3D Prtgra 



*LIST TYPEWRITER 
♦STORE CORE IMAGE 
*NAME GOTR3D . 



START TR 
TR 



O.A 
60,3 
B7 

SK 63,,, EXECUTED FROM ADDRESS 
RDN 68,,, 
BNA 18000,,, 

WATY 51,,, ANY DATA CK. IS ON 

DAC 5|6-CKS,*-8, 
B7 0,,, 

DDA ,1 ,5401 , 199, 100, 



DC 1 ,5? 
DEND START 



04890 25 04912 00861 
04902 22 04819 19997 
04914 49 04814 00000 



02402 31 00000 02434 
02414 31 00060 02494 
02426 49 00000 00000 
00000 02434 34 00068 00701 
00012 02446 36 00068 00702 
00024 02458 47 18000 01900 
00036 02470 39 00051 00100 
00048 02482 43 00000 00000 
00051 02485 00010 
00060 02494 49 00000 00000 
00068 02 502 00006 105401 
02508 00003 T99 
02511 00005 00100 
02516 00001 t 
02402 



c. Vfifflff Vf qDAOI LOAD 
MLCASO Pr»gr— 



*L 1ST TYPEWRITER 
*STORE CORE IMAGE 
*NAME MLCARD 



START Bl *+12, 600,, RESET ALL INDICATORS 

TF START+9.LIST 

TR LIST-1 , L IST+1 

BNR START, START+9 

RNCD 0,,, SIMULATE LOAD KEY 

B7 ~ 



LIST DVLC 

T6T7363738 
DC 



02402 46 02414 00600 
02414 26 0241 1 02470 
02426 31 02469 02471 
02430 45 02402 02411 
02450 36 00000 00500 
02462 49 00000 00000 

,2,7,2,9,2,14,2,15,2,16,2,17,2,36,2,37,2,38 _ 

02470 00018 07091415 



2, 



DEND START 



02488 00002 0$ 
02402 
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D. QOTAFTT D8CK 



34000 3200701 36000320070249024025 1 19636 1 i 300 102 

• * JOB 5 LOAD GOTRAN 3D AND AFIT FORTRAN ON DISK 

** IF SECTORS 105165-105199 AND 105400- 1C5999 ARE NOT PERMANENTLY 

**PAUS ASSIGNED, PRESS START TO PROCEED 

**DUP 5 

•DLOAUMLCARD 0111102222CI 

46024 140060026024 11024 70 3 102469024 7 14 502402024 11 3600000005004900000- 7-9 J4J5-0001 
J6J7L6L 7L 8-* 7 144 5 5959 -,65900000000000000000000000000000000000000000000000000-000 2 
R 9999*00000000000000000000000000000000000000000000000000000000000000000000 0-000 3 
**DUP 5 
•OELETMLC ARC 
**DUP 5 

•OLUADMLC ARD 1000 00 1000 00 1 051650240 202402D I 

**DUP 5 

• ClOAUAF ITLD 01U102222CI 

34041 120070136041 1 200 7024 704C6 80 1 9C039040 5 1 00 1 0048 V4 204 3 520*4 9040000 3404 1 26-000 1 
00 70 I 36 04 12600 702470 I COO 01 90 049040 360 1-5 17 0-30-0 1001-582 3- 02- 7820201 30 C22 19-0002 
8850452032 19883000002 119P88 I 98852 104520 19888 3202 78CO000CO000O0O000O00000000-O0O3 
R9999*00OO000000C0000000000O0000000CO0000000000000C000000000000000000000000-0004 
**DUP 5 
•DELETAF I TLD 
**OUP 5 

• DLOADAFI TLO 100000 100001 1C5 166 04 00004000D I 
**OUP 5 

• DLOADGOTR 3D 01U102222CI 

3 1000000 24 34 3 1000600? 494490000 00 34 GOO 6800 70 I 3600 068007024 7 180000 1900390005 1-000 1 

00 10048M4204 3 520*49000000 1-540 1J99-0 100*070-0 713400000001023902485001004800-0002 

000000004900796022-2 5 76*0-4800-01 J0860*22- 2 599*0- CCOOOOOOOO0OO00CCOCOOC0OCC-OOO3 

R9999*0PC000000000000OC0000000000000000O000O000000C000000O00O0O0C0O000COOC0-0O04 

**OUP 5 

•CELETGCTH3C 

**DUP 5 

•CLOADGGTR 3D 100C001000CI 10516802402024C2GI 

** aFIT LOADER 

**DUP 5 

•CLOAO 1051700010001000C I 

CC00COO0OC001C20 3 04CCC 2040603000 3060902 1004080 2 16 I C0500 1 5 10200602 1 8 142C07C4-000 1 
1 128200b06 142 23C09031 7263000000000050607080900 12 1 4 16 18 15 18 1 124272024282236 3-CCC2 
520 35 304 54 036 324 84455 3249465 3604 84654 627 544 5 362 71*012345678912 34 56 789-23456-0003 
789-J3456 789-JK4 56 7d'3-jKL 56 7B9-JKIM6 7 39- JKLHN789- JKLMNC89- JKLHNCP9- JKLMN0PQ-0004 
♦C390C4170010C486245 5 80* 304900 754*0 50014005900-0124 700402012002600480005783-0005 
1-04260051 31 1C04 49C- 00 149004 260000000 049007 54* 0000 COOOOOOOO0O000OOOOOOO00CO-0OC6 
00000000000000000O00n000-C426OC0OO0C3-0 1 1000000000 340-05400 102 390C6 750C ICC 3-0007 
8C06680010C26C066600599<i80000CCOOG04900000-OC5 3* 5*341 59440056646 3005646CC6 2-0008 
4 5 5864455 54345C04 1466 345 59004341 5 9440 05564 54424 5 59000*4 100000000003600 798C0-0009 
7C241COCOOOOOCC4 90100 00105 3000 2 30100C00000000000000 2600844 009 24 3 I- 304CCC859-C01C 
49007 54C00 35 6 5 6G0 544 I 5 56 8004 4 566 2 C 049 55004 100 554562630*000000000000000-3040-001 1 
00000000-0 52 000000000000 000000 OOOCOOCOOCOOOOOOOCCOCOOOOOOOOOOOOOOOOOOOOOOOO-00 12 
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1600856-075415002990000846010360140036031000050032031 750000024031 79006C6460-C01 3 
1096012001700600-10361100671000-11100606000-11403101000-0470209201200140310-0014 
3000-0470236801200140310600*994702048012001402342-4017460125201200340000000-0015 
1023902995001004800000000003600402005002400481006064601300012001700600-1252-0016 
1100*06000-11100*71000-12901*4200417250173100417360310000500240317900606460-0017 
1396012001700600-13481100406000-11 100671000-1 15-3160000-*3102927-3150440148-001 8 
802935260147301645260000702934490164004401828029363302936000004901640044018-0019 
40029331402931000-04601604011003400000001023902939001003802933001001602931—0020 
00042402433029312601633016451600001000K926J9999029361201 734000- I 1201645000—0021 
11201425000-1 1201442000-1 1401443-31004601420013001600499J999922004990041646-0022 
0189*012001400499-00604701796011001600499-006021014260049921014430049949013-0023 
480440152002934240164600421460164001100440165202932260164602936490165202601-0024 
914004113200000000001101913000-1240191300420470190 8013002602002004102602014-0025 
00410260202400410260049900009260049700007260049100001 16006060K00049O0754031-0026 
-800003107240309)90311321020540310*490103*04302232031002602929031033203 105CO-002 7 
0002*029310310*2*0293*0217031-31800292831-334*031071102157000-1210217003106-0028 
1102170-00011102221-00-1490103*0430277*031012603113030992603125031131402342-0029 
-5*17470233*013003400000001023903041001004800000000004901036031-40170310211-0030 
02342-0040490103*01*02403-31711102403-0010240310300000470238001200260243902-0031 
4033102928000001202221000-14702488012001602158-31801602170-3346260251102935-0032 
310145*OOOO01402930000O04602732012001402930000K84602676012002103962020542 10-0033 
3974020342402*90020544402644031181602638- 394321026380293032000Q000000310000-0034 
0039S*ai020»402tJO*90a04t021039860 20541103986-0024110399 8-00242103998020544-0035 
90250402104010020941104010-00361 103998-0036490271202602835023421202835-0037-0036 
1402039-4020470103*01300240310500000470103*012002*02895028351102895-0002260-0037 
2090020543100000000001102054-00341202342-004049027760000000000*045544454649-0038 
.3f4f4400*2*341*3435443556300S54454424559000*H954575956574559004456006245586-0039 
445S543495547040l5*5*OOS44tSSft00044»4*200495S004l003$4562630*00000000000000-0040 

640UP f 

•OLOAMFITM 0111102222C1 

3419132007019*1913200702471*97*0190039191 150010O48H420435204491906401-5600K-0001 
00-000033-0*402-14*00000000000000000000000000000000000000000000000000000000-0002 
* 99994000000000000000000000000000000000000000000000000000000000000000000000-0003 
•♦OOP 9 
•OEUETAFITPR 

f tmr 5 

•OUMOAflTM 100000100000105400190641906401 
44 60TAAM MOO 3, AFIT PROCESSOR t AFIT SUBROUTINES 
490U9 9 

•Oi 0*0607 AFT 0111102222CI 

000000000000102030400020404080003040902100408021610050015102006021814200704-000 1 
112820000414223009081726300000000005060708090012141618151811242720242822363-0002 
920333045403432484455324946536048465462754453627180123456789123456789-23456-0003 
7f9-J3454789-JK454789-JICL5*789-JIClH*789-JRLMM789-JKLI*N089-JKL«NOP9-JKLHNOPO-0004 
490088004900912049012800440132404901448049018980490106404901576049017940490-0005 
I7400490123*03l00844i48164400t4400*44440473000850250054600849260065019994l 1-0006 
00499000J42400*42008524300 748008532600654008564 300780008572*006610086043008-0007 
12008*12*000*0199992709954199992*199990006047004800020015071990000115068470-0008 
000116072030001434000000010227066740066249004880250077000853220064219997490-0009 
0584O250O802O08S722004541999749004080250083400 66122006611999749006320490040-0010 
0000000000000000000000000000002600902000532*004991999*490048802*00946008534-0011 
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30 103200854260006C 1979943009800005 326009020086049008920440101200060260090 20-00 12 
085749008920260090200863490089202501054008542200946199974900936015071990000-0013 
1 150684 7000C11607203000L4340000000 102 1100499000-32601 170008531 100499000-443-0014 
01 20400854 1 706674 J9999310085 100855450 11240085 1490048802501 226008542201 170 19-00 15 
9974901 16001 507199000041506847000041607203000H1490 1112025012970085 126199970-0016 
08541100499000-749004880250135 3008512501370008512119997008562400854199974 70-0017 
140401300260049900861490048801 10049VOO- 142501433008512219997008564900488025-0018 
0151 30085 12501501008512501 50600852250 15090O85326199971999721J99970O85646015-00 19 
3201400 1100499000-9470048800200260066 101 5 1 34900680048K 0000 100001 100499000-3-0020 
49004880 1601 643J291 3 160 1652J291 345016460000042 1400000000-0470 17020 1200 12016-0021 
43000-2 1201652000-2490163202601732016521101732000-215000000000*42340000000 1-0022 
0239017850010034000000010849018060026356570*340000000102390926500100340-500-0023 
00102340- 1000010249000000450 1870127554900000027016080160749019906490736201 1-0024 
00499000- 34601934001U034000000010246019660010037127550010049019780371275500-0025 
5004901850016074601O22004004602026019004 702050006001706078 J710*490200200000-0026 
2602 159008531 100499000-41 402 15900R7946021 1801 100150216000009490213001502160-0027 
0000 743022 3000854270260802607261 9999000603 10085 1008554502 1 980085 14900488046-0028 
0193400100340000000 108490193402502252008542202159199974902 142016022851R9992-0029 
609191 19876450237809 1901 706078L 7 10*24092 13091914602440014002409191092 134602-0030 
44001400460241401200490244004502310091912602408022852619999092132502285-192-0031 
84215022850000912022850-01049-22740160921400-0*3109211092122509213127553112-0032 
75412756450252812755490255201412755000P0460247201 30032092110000043025880917-0033 
0320921 3000004902262031 12754J2756141275500O-04602596012O014127550O0K0460358-0034 
801200 14 12755000- 347026920 120049046920000014 12755000J0460365601200141275500-0035 
0P0460370401 300260921 3127553 11 2754 12756450278412755490291201412755000M04702-0036 
86401300310919509197260921312755 330921200000490275203112754127561412755000 — 0037 
046028520 12001412755000K446029320 12001501928000004902262031 1275412756141275-0038 
5000-0460293201200490304402501928127553112754127561412755000-44702988012003-0039 
U275412756490226201412755000M94 70309201 3001412755000N647029760130024092130-0040 
923346032960120024092 130923946033160120024092 130924546033360 1200 14092 130H94-0041 
646063860120024092130925146033920120024092130925746034120120024092130926346-0042 
034320120024092130922346034520120017060781720*1600853 J2026490575201600853J1-0043 
0584905752015008490000N27026080260726008530228516008570ft9B04905e2001600653>-0044 
2980490575201600853J2926490575201600853J3724490575201600853-460227026080260-0045 
7260085702285490350803 112754127561412755000K 347034960120031 1275412756141275-0046 
5000-0460353201200260085912755490582003112754127561509484000001412755000-34-0047 
70371601200150917100000490371603112754127561412755000-347037040120015091710-0048 
000015094840000126000601 18201603825000MJ150397200001 1603898-00531600052000N-0049 
01412755000-34604060012001412755000P0470397201200M100052000- 13112 7541275645-0050 
0377612755490411604303892000531603898-005325-005312755311275412756450393612-0051 
7554904 I 1601412755000P0470403601 3004604004012001 100052000-1 1 103898000- 14903-0052 
86804 30 3972000531200052000-1490390401412755000- 34704092012003303825000M1 150-0053 
397200004490390401412755000M54604306012001403825000M146042 1201200160009900— 0054 
002600052041502604187038982100099198764604200014002600060000994304248000531-0055 
600052000-04100000000004304272094843200060000002609213000604304298061074249-0056 
029120311275412756430433812754490430*014 12755000K04604498012001412755000J04-0057 
604518012001509485000011602594-4430150917000002490246001509170000001602594—0058 
226232092120000025044790948521000520921349041160150948500002490453001509485-0059 
0000131 1275412756490439802604568022852619876058384905 3220N81000000000000000-0060 
002600060045912709554046013200059000003300060000004914820000002104692000602-0061 
1046920006026 J277 300859391275500400330005900000490048801 100499000 J426047960-0062 
085326048000085643048580085726048 190086027 199991999943048900086126199990006-0063 
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0260066204820*600680002004900*880250*8800085 722048 12 1 9997490* 778025049 120C8-C 064 
6 1 2204819 19997490481 404 a00 1 1 1000004 70496600100371 2 7550050049049900 37 1275500-0065 
100340000000102270160801607470503800300391275500100340000000102460493400400-0066 
470507*0020039 1275500*00*6050980 1 900* 705 1 1000800 17C6078J 7 10* 14 12 755000*3470-006 7 
517001200*30517012756*30517012 758*90493*00000430520212 7543112 75412 756490517-0063 
001*1 2755OOOP0*7O532201 3002702*60024591502285000062605273022854504550198761-0069 
50 183400000260532 102285 1205 32 1000 J31605903 J98762702608-2607 14022 85 1R9004608-0070 
87*01300 1*02285 1* 770*6061*001300260086102285311275*127561412755000-04605394-0071 
01200 14 127550001 34605394012002 702608-260714022850R 770470551401 3002702428024-0072 
274905*6600000260085302285*5055881275515008*90000-1600857011990*905820000000-0073 
00000490065601412755000-04 7056320120031 1275412756490558801412755000J0460592-0074 
*0 12001* 12755000K 0*60^9**0 1200 1*12 755000 J**60596*0 1200 141 2 755000K 146060400 1-0075 
20017060781730*31 12 754127562702608-2607 14022850ft 770470580801300270242802427-0076 
490576*0260085702285 15008620000*3 IJ*8 16008491 105838000 J443049340 1834 150 1834-007 7 
00001260589805838 31 19876198761 105 838000 J449049340 15008490000 J4905 7400 15C084-00 78 
90000K4905740014 I 2757000 J44 7060200 12001 5008*90000N31 12754 I 2 7564905 7400 150C8-00 79 
4 900001.4905740015008490000*49057400*5595956590040000*340000000 102 390606 100 1-0080 
003400- 100010815099350000243000000610 7422506 163022841 301822000-011000990021-0081 
12606199000992606206098764919876-7514-6258-8026-8290-8466-8398-8818-8310-83-0082 
64-853*03 11275*12756 141 2 755000P0470625801 3002 702*6002*59160085000*002600853-008 3 
0228*150085*0000*2606360058383100000008491105838000-64904934027026080260726-0084 
0085402285250085*0 19283 11275*1 27561*1 2755000P047064220 130027024600245926008-0085 
57022841412755000K33 11275* 12 756*706*820120027024600245926008600228414 127550-0086 
OOK 9311275*12756*7065*20 12002702*6002*592600863022841 5008640000* 160085000M0-0087 
82606644058383105838008*91 105838000 J6*90*93*000002606697066732600060 198763 1-0088 
09294094544406858000592606744066962600060 19997 16093 15000-* 25093 13000602509 3-0089 
110005*250930900058*406826000601 50930600002490683801 50930600000390930 700 1C0-0090 
490720204406882000601 50929400002 1200052000N04 7072740 1 300 1400052000-84607294-0091 
011001609315000-* 1607056>92972107056000522 10705600052260 7025094952407020070-0092 
•564607050012002509297000532107025015834906990000001600000000-32607141070251-0093 
1071 36000-2*90710602 1071*10 158 31*071 36-93 1546071540120025092940CC 6049070940-0094 
0000* 30 7226093 16* 107 1900005 3 1609303000- ♦ 390929500 10034-64*00010842000000000-0095 
025093210005243073420005 14 1093 1800000490 716600000 1509 3 1600002490 73C6015C93 1-0096 
600001 1200052000- 1160 7056-929949C 69 780O0O025C93 190C05 14907 1660 1607 380 J9765 1-009 7 
6 19876000- ♦ 1 207380-00 10 140 7 380 J51 30460737401 100260743907379160-008000-* 160 7-0098 
464J275516J2 755000-01 107464-0002 1407464 J29 154 70745801 20049049340 16C085C00* 1-0099 
6270246002459260756702284120 756800- 10 15 199990000P26080 11075673 112 7 54 12 756 14-C ICO 
1 2 755000W04 70 7 58601 300250085 1 12755311 275412756141 2755000P047076340 1300 15C25-0 10 I 
89000021509 17C000042 7024600245 92600854092 13 15008550000*260774805 8 383 10 58 3eO-01C 2 
08**1 105838000- 7260086105836 16C085000*2*150086200CC* 3 1 127541275614 12755C0CP-0 10 3 
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650-00022034650 34294100000000001601088-352244035220346516030970-00133034656-0 740 
7 80*490 30980 160 1088- 3558260 359 300059 16000590-00t 1203465000- 147030 740 13004 10-0741 
0000 OOCOO 2 30 3 5 93000 59 1 6000 590-000 2 1 000 5900099460 1 0820 1 400260 368507 13726056 1— 0742 
PO 7242490 7 1 140 16071 3 7- 00004 30 3886056 1 94 3072 340562 1 43039 1 80047943072340048 1 1-0743 
60 7 7 12- 72 344304814056194504814004814304814004792603812071371103812-00051400-0744 
000- 364 2460 3 794012004 707 2 34013002603860038121400000-3 7464603 794012004904814-0745 

04 30 37100561 726056180724249048140430 7354056174904814026039730713 71103973-00-0746 
02260 74020000022076690 74024 707366013001107137000-2210713707402210 7137074021-0747 
10 39 73-00021207402000-14 70 705401 300450414600481260412 00 397 34504114078174904-0748 
7 780260300007817310781607818490403401107292-0002260418807292260419303973260-0749 
0000000004904034000001607669-047 71604 356- 7 518260 713 704 205490430200000160 766-0750 
9N018716076C8- 76 10 1 604856- 7 590260 7 I 3 704253 160048 1-0000 160 77 12- 7 1023207668-0-0 75 1 
0002 605 39B 7669 160 7292- 78 15490 76 700160 7252-30 742604405024244100000000002604-0752 
44 10440516056 19000-0410000000000430 7 3540561 73100050078054505934004811605788-0753 
- 004926050 1500 73D 16004800-0*0 3 104 3 330291 7490495400000 1605901R050 I 1604856- 76-0 754 
7026045 85045 T 749046 10000001 60590 IRO 100 1 604856-5870 3 1004 7 70 7073 160 7712- 5890 1-0 755 
4C4 5 35-00004 f 046820 120024058990766746046940 1200250 781 7070 7 72604645045852607-0756 
6670589945047420731 74504302056191605618000-21602448-30 744505246078174304802-0757 
56 1945 072 3400479260 7 137046452 60 766905898 1607292- 781 54 30 70900562 149000000 14-0758 
781 7000-0470 52 7801 2004 30491 800480440491 8050102500480070 7 7 31078 1 60781 8 120 74-0759 
02000-146071 140120045048580 781 74404802050104305014000503100050012774905062O-0760 
0000210005904 33644050500501432 0005 70000032000500000046050860140043051660501-0761 
14 305166004781601674-511849015 720160305900077390304500100250047807077450562-0762 
2004801505010000001600479000-02602 393044413302 39 3000001602448-4754440225604-0763 
44 14902 3940440739807 40 44 50 72 34 0561 949030740140 781 7 OOOK 3460488 20120 0430 49780- 0764 
04804 3049 1 300478 1 407 8 I 7000- 347 05 8260 12004 305 08605009 16050 10000 J J49049 180430— 0765 
5086043 35 15050 1300000220433504 33625043 360 78 1749049 180 140 781 7000 J047055420 12-0766 
00440562205010430 50860501 31 50501 30000J43056220501 244050860501 1 16050 1200J0J4-0767 
90491 8014078 17000K04 70564201200440561 0050104305086050 13 150501 50000249054860-0768 
32050 14*0*-01 5050 100000L490491 80 14078 1 7000P047050860 1 300 15050 1 10000K4305382-0769 
050124305746004 774 705734012001200059000-14905 794015004 77000001105 788-000114-0770 

05 788-005 74605794011002 5000000 73174304918050091100059000-149056220140 781700-0771 
0M54 7054 380 12004 30503 6050 12490 55 100 160 1674- 7670490 157203 70781700 10047070660-0772 
0400430 70660590149015 72021072920 7402210729207402260705 307292260698107053310-0773 
3 1240 15 74260650804440260604004440260687706041 260005900009 1407400000R0460620-0774 
2013001606 768-6818440633400056120 7402000-546066460130021031290 74021606156-3-0775 
069210615 60 31 2924300000005846066*60 1 100 160 7404R0 5 0-4906 346N5 1 07-0Q* 16031290— 0776 
0-094406174000584 706414012001206981-00022200059074041100059000-246063 340140-0777 
01 60 3 12600-09220 3 12600059240 7402 0005946066220 13001607404N140Q1607292-783343-0778 
705405620260 74290 7053 160562 1000K2450 7 1500 799149048500 3 10725306 193 120740200-0779 
0J446064740 1300220 3 12607402220 7260074022207260074042 10 72600005943065 7800000-0780 
160726000-9R 1507255000022 50 72 5 30 7259 150725900007 1607328-66 104907286043063 34-0 781 
72 5846065 340130049065220120 7292000-61606 768-67 7012068 77000-226070170687716-0782 
7 328-6 76 21 10 3126000-14 706 71801300220687703126220 31290 3126120 3129000-146073-0783 
100 1 100 160 ?0 17-6 7424907310049O0O000 1107404000-1460726201 100140312900-004707-0784 
2 8601100140 312900-004 706946011001103126000-147072860110025072600000012068 77-0785 
OCO-l 120 3129000-1490 7286026069 28 069691600000000-01107292000-226069690729243-0786 
0699400000140 7292-00004 706 9100 1300120 7292-0002440704200000 26070360729216000-0 787 
OOOOOKO 1607202-0000260 765 20/292150 79910000*43074060562015056210000043071500-0788 
5 6201 10 71 3 7-0 00 5 2 507404 00000440 7 3860 7404 32 740100000 320 74030000043059340562-0 789 
01605 616000-2*304 954004 7 >* 10 7 1 30 356 1 94 30 3 722- 799 1 1 6056 2 1 *0 *00490 30 74-000 700-0 790 
00 160 72600PCC 3 1606 763-53 1326- 76 1 50 7260 120 7292000-2 1607260000P049000000220 76-0791 
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690740246072460130016074040999R1601674-7738490157204304978050104R0000001 505-0792 
620000001607292-00001607608-15723103057035094307498076651601674-748649015 72-0793 
0390304500100260 783103059490485001 107553-OOOU6079 /4P0707150 79 7500-00250797-0794 
307552250797107551460 7658014001601674-7610490157201607608-15724507670079911-0795 
107652-00022500000070773907817001001607683-78171600000000-0140 7688-79914607-0796 
1020 1300 11 07688-0002490 768 20 1 60 30 5900079 590 i04 500 1 00 1207 1 37000-5440 37460740-0797 
44503746056174904454-0000000-0*000034-4900*3100000078404902056*105925075004-0798 
100000003607848007022502 728004012502752004012502820000000000000000000000000-0799 
R9999*000000000000000000000000000000000000000000000000000000000000000000000-0800 
**DUP 5 
•DELETGOTAFT 
♦♦DUP 5 

•OLOAO 100000100598105401011110222201 
♦ ♦♦* 



39 



APPBTOIX A 

Randoa Setting of ArltfaMtio Cheek Indicator by Standard 
OOTRAN During Execution of PLOT Statement 

OOTRAH compiles a PLOT statement aa 04602lAAl a CCXX$ , where 
1AAA9 ia the addreea of the rariable to be plotted, I« ia a subscript 
code (0, 1, 2, 3, 4, 5, or 9) need to modify the addreea of a 
subscripted variable, and CC ia the alphanumeric code ef the character 
with which to plot. The two digit group XX ia miscellaneous garbage 
left froa compiling the previous atatemeni. 

Oaring execution of a program the PLOT command ia interpreted 
by the same routine as floating arithaetic aubroutine commands, which 
are in the font SsSSSlaJIalBBIb* , where SSSSS ia the aubroutine 
addreee, AAAI a and BBBI are compreeaed addreaaee, and the operation 
ia Bf-FUWCT(A) . 

In standard OOTRAN the cheek for a subscripted B addreea (Ivjt 0) 
and any neoeaeary addreea modification ia performed before branching 
to the aubroutine, although the B addreea ia not needed until after 
the return froa the aubroutine (PLOT returns to a different point and 
needa no B addreea). Under certain conditione compilation of a 
PLOT etateeent can result in the unite p o a it i o n of- XX- being an invalid 
aubaeript code. An attempt to add a non-existent subscript to a 
three-digit field turne en the Arithmetic Check indicator. 

when the PLOT aubroutine ia finally reached, the firat operation 
it perforaa uaee the floating addition aubroutine to add 10,000,000 
to the nuaber being plotted to poaition the nmaber in the unite 
poaition of the floating accumulator, with the Arithaetic Cheek 
indicator on, the floating addition aubroutine adds incorrectly, 
and aa a result the PLOT routine plots incorrectly. In certain 
caaee (plotting a nuaber between -1.0 and 1.0 , or a nuaber greater in 
magnitude than 1.01+15) the floating addition routine does not reset 
the Arithaetic Cheek Indicator and later arithaetic operations are 
adversely affected. 

This fault was corrected in the manner ehown under part 6 of 
the OOTRAH listings (page 19). The BD and BT instructions , originally 
at 04790 and 04802 respectively, wore interchanged so that no cheek 
for I^ would be aado until after the return froa the subroutine. 
For the PLOT subroutine, which returns to 00488, this check will never 
be aado. It was also necessary to aodify the addreaaee of the 
instructions at 04742, 04754. and 04914 , which referred to the two 
interchanged instructions . 



APPKSDH B 

Modification for Machine* Without Auto- Divide 

There is only one instruction in the system which uses divide 
hardware. This instruction is in the AFIT Subroutines and is the 
aodification suggested by the author of AFIT FORTRAN for improving 
the spaed of floating addition and subtraction on machines having 
divide hardware (see Note 3 of "Remarks on AFIT FORTRAN, 1.1.010"). 

To replace this modification with the original Instruction, which 
does net require hardware divide, a change must be made in the GOTAFIT 
deck in the card with sequence number 0705 (this card is less than 
one inch from the end of the deck and is the only card in the whole deck 
with this sequence number). 

Replace the 280009300057 in columns 45 - 56 of card 0705 with 
23000 5700445 . 



